v <- seq(1,10)
w <- v * v
print(w)
